﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class ListaspFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As ListaspBE
        Dim tmpListasp As ListaspBE = New ListaspBE()
        Try
            With tmpListasp
                .FechaC = convertDTFromDb.convertDateTime(dr.Item("FechaC"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .IdLista = convertDTFromDb.convertInt32(dr.Item("IdLista"))
                .IdLst = convertDTFromDb.convertInt32(dr.Item("IdLst"))
                .IdUsr = convertDTFromDb.ConvertString(dr.Item("IdUsr"))
                .Nombre = convertDTFromDb.ConvertString(dr.Item("Nombre"))
                .Obs = convertDTFromDb.ConvertString(dr.Item("Obs"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpListasp
        Catch ex As Exception
            Throw
        Finally
            tmpListasp = Nothing
        End Try
    End Function
End Class
